home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / BACKGROU.ELC < prev    next >
Text File  |  1993-03-28  |  2KB  |  26 lines
  1. ;;; compiled by jwz@thalidomide on Sun Dec 13 16:50:31 1992
  2. ;;; from file /u/jwz/emacs19/lisp/comint/background.el
  3. ;;; emacs version 19.4 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!ê┬├!ç" [provide background require comint] 2)
  14. (defvar background-show t "\
  15. *If non-nil, background jobs' buffers are shown when they're started.")
  16. (defvar background-select nil "\
  17. *If non-nil, background jobs' buffers are selected when they're started.")
  18. (fset 'background #[(command) "└┴ë\n╟╚╔\"ë!½çT¬n╚╩\" ½å╠ !ê¬Ä½à É┴æê╬ !qê╧ ê ╨╤\"½ù└ö└òO╙ò┴O╘╒ !!)╓\n╫╪▒ê┘┌ ┴▄D%!▐ ê½É▀α\"êßΓπ!#êΣ%-ç" [1 nil default-directory dir buffer-name job-name job-number get-process format "background-%d" "*%s*" background-select pop-to-buffer background-show get-buffer-create erase-buffer string-match "^cd[     ]+\\([^     ;]+\\)[     ]*;[     ]*" command 0 file-name-as-directory expand-file-name "--- working directory: " "\n% " 10 get-buffer-process comint-exec shell-file-name "-c" proc comint-mode set-process-sentinel background-sentinel message "[%d] %d" process-id "Background" mode-name] 8 "\
  19. Run COMMAND in the background like csh.  
  20. A message is displayed when the job starts and finishes.  The buffer is in
  21. comint mode, so you can send input and signals to the job.  The process object
  22. is returned if anyone cares.  See also comint-mode and the variables
  23. background-show and background-select." "s%% "])
  24. (fset 'background-sentinel #[(process msg) "└ ┬Ä ─ÿ½â┼¬í╞╟ \"½ê╚ ╔╩OP¬ô G╦U½â╠¬è ╦═Oû ═╩OP╬╧╨!═╥O ╙╘!8$ê╒╓!!¼ç╫╥\"¬»╪!┘>¡ºè╓!qêmèdbê█ ▄▌ ▐▀O█▒ê)½âdbê)α╥!)+ç" [match-data ms ((store-match-data ms)) msg "finished\n" "Done" string-match "^exited" "Exit " 28 -1 0 "Continuing" 1 message "[%s] %s %s" process-name process nil 2 process-command buffer-name process-buffer set-process-buffer process-status (signal exit) at-end 10 32 current-time-string 11 19 set-buffer-modified-p] 7 "\
  25. Called when a background job changes state."])
  26.